#-------------------------------------------------------------------------------
#------------------------ INSTALAÇÃO DE PACOTES --------------------------------
#-------------------------------------------------------------------------------

# INSTALAR E CARREGAR PACOTES --------------------------------------------------
ifelse( !require(bibliometrix),
        install.packages("bibliometrix", dependencies=TRUE),
        "Pacote instalado" ) 
require(bibliometrix)

ifelse( !require(openxlsx),
        install.packages("openxlsx", dependencies=TRUE),
        "Pacote instalado" ) 
require(openxlsx)

#-------------------------------------------------------------------------------
#------------------------------- BASE COMPLETA ---------------------------------
#-------------------------------------------------------------------------------

# CARREGAR BASES DE DADOS ------------------------------------------------------
## Bibitex
WoS1 <- "wos1.bib"
Scopus1 <- "scopus1.bib"

# DATA-FRAME -------------------------------------------------------------------
WoS_df1 <- convert2df( 
  WoS1, 
  dbsource = "wos", 
  format = "bibtex" )

Scopus_df1 <- convert2df( 
  Scopus1, 
  dbsource = "scopus", 
  format = "bibtex" )

# CRIAR OBJETO COM AS BASES UNIFICADAS -----------------------------------------
M <- mergeDbSources( WoS_df1, 
                     Scopus_df1, 
                     remove.duplicated = TRUE)

#EXPORTAR O DATAFRAME PRÉVIO (ANTES DAS PADRONIZAÇÕES E EXCLUSÕES) -------------
library(openxlsx)
write.xlsx(M, file = "Database_M_previo.xlsx")

#-------------------------------------------------------------------------------
#-------------------------- EXCLUSÕES E PADRONIZAÇÕES --------------------------
#-------------------------------------------------------------------------------

# EXCLUSÕES DE DUPLICADAS (IDENTIFICADAS NA LEITURA DOS TÍTULOS) ---------------
M<-M[-c(32,
        39,
        48,
        50,
        56,
        57,
        72,
        76,
        88,
        93,
        106,
        120,
        144,
        148,
        159),]

# EXCLUSÕES DE NÃO ARTIGOS -----------------------------------------------------
M<-M[-c(37,
        38,
        47,
        64,
        67,
        80,
        86,
        94,
        98,
        99,
        103),]  

# PADRONIÇÃO DE NOMES DE PERIODICOS --------------------------------------------
M$SO [M$SO == "JOURNAL OF VETERINARY BEHAVIOR-CLINICAL APPLICATIONS AND RESEARCH"] <- "JOURNAL OF VETERINARY BEHAVIOR"
M$SO [M$SO == "INTERNATIONAL JOURNAL OF DRUG POLICY JOURNAL OF ANALYTICAL TOXICOLOGY"] <- "INTERNATIONAL JOURNAL OF DRUG POLICY"
M$SO [M$SO == "REVUE SCIENTIFIQUE ET TECHNIQUE (INTERNATIONAL OFFICE OF EPIZOOTICS)"] <- "REVUE SCIENTIFIQUE ET TECHNIQUE"
M$SO [M$SO == "PLOS NEGLECTED TROPICAL DISEASES"] <- "PLOS ONE"

# EXPORTAÇÃO DO DATAFRAME EM XLSX ATUALIZADO (APÓS PADRONIZAÇÕES E EXCLUSÕES)---
library(openxlsx)
write.xlsx(M, file = "Database_M.xlsx")

#-------------------------------------------------------------------------------
#-------------------------- ANÁLISE NO BIBLIOSHINY -----------------------------
#-------------------------------------------------------------------------------

# ABRIR BIBLIOSHINY -----------------------------------------------------------
biblioshiny()
